perm filename ABC[PNT,HE] blob sn#365528 filedate 1978-07-01 generic text, type T, neo UTF8
{ FILE BEING WRITTEN BY POINTY  14:00  0 Jul 1978 }
Q←3;
WRITE Q INTO Q1.PNT;
WRITE Q INTO Q2.PNT;
WRITE Q INTO Q3.PNT;
WRITE Q INTO Q4.PNT;
WRITE Q INTO Q5.PNT;
{ FILE BEING WRITTEN BY POINTY  14:06  0 Jul 1978 }
READ ABC
ABC
ABC
Q2←4
WRITE Q2 INTO Q3.PNT
EXIT